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HII I'M GLAD TO BE ABOARD AS YOUR HEW 
EDITOR! I'M SORRY THAT THIS FIRST ISSUE 
HAS TAKEN SO LONG TO GET TO YOU, BUT IT 
TOOK ME A WHILE TO GET MYSELF TOGETHER AS 
TO JUST WHAT I NEEDED TO DO IN THIS NEW 
JOB. 

FIRST OF ALL, I WANT TO THANK MIKE 
WHITE FOR ALL OF HIS TIME AND EFFORT IN 
DOING THE ARTICLES IN THIS EDITION. AS 
YOU WILL NOTICE, THEY WERE WRITTEN UNDER 
THE ASSUMPTION THAT THIS WAS TO EE MAILED 
MONTHLY. SO WE DECIDED TO INCLUDE SEUERAL 
OF THE ARTICLES IN THIS ISSUE. 

MY THANKS ALSO GO OUT TO GEORGE MOSES 
FOR HIS WORK IN GETTING THE PROGRAMS ALL 
LISTED FOR THIS ISSUE. 

FIRST THINGS FIRST! THERE WERE SOME UERY 
IMPORTANT THINGS LEFT OUT OF THE OUTPOST 
19 PROGRAM OF LAST ISSUE. WHEN YOU HAUE 
TYPED IN ALL OF THE PROGRAM AS WRITTEN, 
YOU MUST THEN SET THE FOLLOWING UARIAELES 
TO THESE UALUESs 

D=16384;E=1970; F=1;N=11;R=35;U=70;Y=-l0; 
NT=0;SM=1 

NOW, YOU SHOULD TAPE THIS. WITHOUT THESE, 
THE GAME WILL NOT WORK RIGHT¬ 
ABOUT THIS ISSUE, IN THE PROGRAM BY 
GEORGE MOSES, "PRINTED LISTING CLEANUP 
UTILITY”, YOU'LL NOTICE THAT LINE 101 HAS 
SOME PRINTED 'GLICHES' IN IT. THEY SHOULD 
BE LIKE THIS s [on PAgg SSl 

101 .STEP FjTU=1 0;TU=K) PRINT #1, 

yU,">*"/k(B);U=U+l;NEXT B 

THE DOTS MEAN TO PUT ALL OF THE LINE IN 
THAT IS BEFORE THE STEP F . 

NOW, COMES THE TRICKY’ FART OF PUTTING 
IN THIS AND OTHERS LIKE IT FOR THE BLUE 
RAM. IF YOU DON'T HAUE A KEYBOARD THAT 
HAD THE SPECIAL COMMANDS LIKE CIRCLE , 
DATA , SNAP ..SCROLL , ETC., YOU’LL NEED TO 
DO SOME FANCY PROGRAMMING TO PUT IN THE 
RIGHT DATA INTO LINES THAT CALL FOR THESE 
AS MACHINE LANGUAGE. HERE ARE A COUPLE OF 
EXAMPLES: 

203 PRINT "GOTO DATA PRINT ", } 2=4 RETURN 

TO DO THIS FROM THE KEYPAD, PUT ANY ONE 
BYTE CHARACTER IN PLACE OF THE COMMAND OF 
DATA . NOW, LOOK IN THE TABLE BELOW FOR 
THE NUMBER ASSOCIATED WITH IT Cl20) AND 
TYPE IN THIS COMMAND WITHOUT A LINE #r 


S. <X< 02035+3), 0)=120 

WHAT THE >203 COMMAND DOES HERE IS POINT 
TO THE ADDRESS OF THE 1ST BYTE AFTER THE 
LINE NUMBER. THE +3 POINTS TO THE PLACE 
THAT WE WANT OUR HUME-EF: TO GO. THE ), 0) 
MEANS THAT WE WANT IT TO GO INTO THE 
LOWER BYTE OF THAT ADDRESS. TRY THIS AND 
SEE WHAT HAPPENS. YOU CAN USE THIS ANY 
TIME THAT YOU NEED TO INSTALL A NUMBER IN 
ANY LINE. JUST CHANGE THE 203 TO THE LINE 
# THAT YOU NEED, AND THE +3 TO THE BYTE 
THAT YOU NEED. 

HERE IS A TAELE OF THE SPECIAL’ BLUE 
RAM COMMAND WORDS AND THE #'S THEY EQUAL; 

120 DATA D, !78 

121 CIRCLE Cl. !79 

122 POINT PO. !?fl 

123 DEFAULT DE. '.7B 

124 SHOW SH. !7C 

125 SHOP SN. (7D 

126 ZERO Z. ■7E 

127 SCROLL SC. «7F 

YOU LL NOT1CE THAT BOTH DATA AND ZERO 
HAUE 1 LETTER FOR THEIR ABBREVIATIONS. 
DATA BECAUSE IT IS THE 1ST COMMAND THAT 
STARTS WITH THE LETTER Q, AND ZERO IS THE 
ONLY 21 

TO HELP SPEED UP FURTHER ISSUES OF 
THIS PUBLICATION, PLEASE SEND PROGRAMS 
AND ARTICLES TO ME, AND ADS TO ROBERT 
FABRIS. 

SINCERLY, 

KEN 

«=-«=. OS S . CAMPBELL 
CHICAGO, IL. «£- Ot-29 


PUBLISHER’S NOTE Ken tells me 
that the next issue is well under 
way, with the remainder of Mike: 
White's tutorials, and a few 
programs. We haue had a poor 
year (and a half) from the 
standpoint of getting material to 
you, and I'd like to make the 
next issue an oversize one to 
make up for that. So why not 
send in your program or tutorial 
and we' I I put them al I together 
to finish out the Uolume. You 
have two months to get the 
ma teri al, to Ken. rf 
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GREETINGS! TO ALL THE NEW SUBSCRIBERS, AND TO ALL YOU "DIE 
HARDS", MEL.COME _ BACK ! ! 

AS YOU CAN SEE, I HAVE UPGRADED MY COLUMN WRITER TO INCLUDE 
THE SYMBOLS <~*U>x AND f AS WELL AS ENHANCED PRINTING! LAST YEAR 
THIS COLUMN HAD SOME FUNNY SYMBOLS IN SOME OF THE LISTINGS. BUT 
NO MORE! IF YOU DON'T HAVE NIAGARA BUG BULLETIN VOL.2 GET IT 11 
BACK ISSUES ARE AVAILABLE THROUGH KEVIN O'NEILL. 

ON PG.33 VOL.2 NIAGARA BUG BULLETIN I SAID THAT "FOR NEXT" 
LOOPS RUN FASTER THAN GOTO OR GOSUB. THAT IS BECAUSE THE ADDRESS 
FOLLOWING THE "FOR" STATEMENT IS "PUSHED" ONTO THE STACK WITH 
THE "TO" AND "STEP" VALUES. LOOP 1 OF MY LAST COLUMN (LAST YEAR) 
DEMONSTRATES THIS. LOOP 2 SHOWS THE EXACT ADDRESS. AS THE "FOR" 
STATEMENT IS READ BY THE COMPUTER THE "STEP" VALUE CHANGES, BUT 
ONLY IF TR( 1) IS PULLED ! HENSEFORTH, THE "FOR" STATEMENT IS ONLY 
READ ONCE, NORMALLY! THE STACK HOLDS EVERYTHING TILL THE "NEXT" 
IS ENCOUNTERED. THEN WE RETURN TO THE STORED ADDRESS, AND KEEP 
LOOPING. THE ADDRESS OF THE LOOPING VARIABLE IS ALSO PUSHED ONTO 
THE STACK. SEE QUADRA OR THESE 2 LOOPS: 


LOOP A 


LOOP B 


10 FOR A=0TO 99 
20 FOR B=0TO 99 
30 NEXT A 
40 NEXT B 


10 FOR A=0TO 99;IF A=50GOTO 30 
20 NEXT A 

30 FOR B=0TO 99 ;IF B=50RUN 
40 NEXT B 


LINE 40 "BLOWS OUT" IN LOOP A, BECAUSE THE "FOR B" DATA GETS 
ERASED WHEN "FOR A" DATA GETS READ FROM THE BOTTOM OF THE STACK. 
LOOP B RUNS FOREVER! THESE "FOR" STATEMENTS ARE "RESTACKED" WHEN 
REINITIATED, SO THE STACK <200 BYTES IN AB) DOESN'T EXPLODE. 

NOW AS PROMISED LAST YEAR, LET'S LOOK AT: 

DIRECT SOUMD R O RT ACCESS 


&< 16) =M0 
&< 17)=TA 
&< 18)=TB 
&£< 19) =TC 
&<20)=VFx64+VR 
&«( 2 1) =NMx 16+VC 
< 22) =VBx 16+VA 
S*( 23) =NV 


MO=&<16) 

TA=&i< 17) 

TB=&<18) 

TC=&< 19) 

VF=fcs<20) t64;VR=RM 
NM=& < 2 1) -I- 1 6 : VC=RM 
VB=4i < 22) t 16; VA=RM 
NV=&i< 23) 
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THE CHART WAS TAKEN FROM THE PORT TO VARIABLE TRANSLATOR BY 
[GEORGE MOSES]. THE PROGRAM LETS YOU HEAR THE SOUNDS AS WELL AS 
SEE THEIR VALUES. THE TUTORIAL ON PG.62 TO 66 VOL. 1 ARCADIAN 
EXPLAINS THE SOUND GENERATOR IN DETAIL. ONE THING ABOUT k(21), 
&c( 21) =255 GIVES THE SAME SOUND AS k(21)=63. GEORGE MOSES'S PORT 
TO VARIABLE TRANSLATOR WON'T EVEN ACCEPT A fci(21) INPUT OVER 63. 

ON PG.69 VOL.l ARCADIAN YOU'LL FIND A CHART OF CONCERT NOTES 
TO AUDIO FREQUENCIES. AND ON PG.73 IS A CHART FROM &( 17) OR TA 
VALUES TO AUDIO FREQUENCIES. REMEMBER THAT TB+TC OR &t< 18) +&( 19) 
ARE THE SAME (SOUND WISE) AS k( 17) OR TA. THEREFORE YOU CAN MAKE 
THREE VOICE MUSIC FROM THESE TWO CHARTS. GEORGE MOSES SENT ME A 
COUPLE OF LETTERS A WHILE BACK AND HE GAVE ME THIS: 

THE FORMULA FOR A NOTE ONE OCTAVE LOWER IS TO TAKE THE MO 
(OR TA) VALUE, ADD 1, DOUBLE IT, AND SUBTRACT 1. 

THE FORMULA FOR A NOTE ONE OCTAVE HIGHER IS TO TAKE THE MO 
(OR TA) VALUE, SUBTRACT 1, AND DIVIDE BY 2. 

TO CREATE STRANGE SOUNDS REQUIRES A "FOR NEXT" LOOP. HERE IS 
"THE RAZZ"!! SLOBBER AND ALL: 

10 NT=-1;&( 18)=-1 ;&( 19) = 188 ;&( 21) =36 ;&( 22) =-1 
28 FOR A=58T0 8STEP -1;&(28)=A 

38 NEXT A;NT=8 

IF YOU USE THE VARIABLES INSTEAD OF THE PORTS, YOU MAY USE 
THEM TO STEP THE LOOP. (SUCH AS "FOR VR=58T0 1STEP -1"). BUT NOT 
ALL IS SWEET!! TRY THIS: 

11 NT=18 

12 PRINT "135x 1 5x 100 

13 CLEAR 

68 FOR N=1T0 1000;NEXT N 
333 NT=0 

343 TB=-1;TC=180;NM=2jVC-4;VA=-1;VB=-1 

344 FOR VR=58T0 1STEP -1 

345 FOR XY=1T0 2;NEXT XY;NEXT VR;4- 

511 NT=15 

512 PRINT "100101100+20220110-11000 

THE VARIABLES RUN SLIGHTLY FASTER THAN THE PORT LOOPS. THE 
REASON IS, THERE ARE LESS BYTES. SO A SHORT DELAY IS ADDED TO 
LINE 345. BUT "WHERE IS THE RAZZ"? IF YOU ADD THE ABOVE PROGRAM 
TO ANTI-AIRCRAFT GUN BY [BOB OGDEN3, PG.73 ASTRO BASIC HANDBOOK, 
(EXCEPT LINE 60) YOU WILL GET "THE RAZZ" IF THE AIRPLANE REACHES 
THE RIGHT EDGE OF THE SCREEN. BUT ONLY IF YOU MISS AT LEAST ONCE 
FROM THE GROUND. OTHERWISE, YOU HEAR A NASTY SCREECH. NEXT MONTH 
I'LL TELL YOU WHY! ALSO, DID YOU TAKE THE "&(16)=71" OUT OF LINE 
20 OF SPACE MISSION (PART 2)? IF ANYONE CAN TELL ME WHERE THE MO 
SHIFT OCCURS BEFORE THE MARCH "TRICKS" COLUMN COMES OUT, I'LL 
GIVE THAT PERSON A FREE QUADRA! (HINT) ANTI-AIRCRAFT GUN MODS 
ALSO SUFFER FROM MO SHIFT ! CLUES NEXT MONTH! KEEP BUGGIN' 
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LAST YEAR I SAID THAT "YOU MAY CONSIDER PURCHASING THE PORT 
TO VARIABLE TRANSLATOR BY [GEORGE MOSES3". IN TRUTH THIS PROGRAM 
IS A "FREEBEE", AND APPEARS ON PG.58 VOL.5 ARCADIAN. I GOT MINE 
FROM GEORGE, ON A TAPE WITH ASTRO ZAP AND BACH MUSIC. I FORGOT 
ABOUT PG.58 VOL.5. SORRY ABOUT THAT! I STRONGLY SUGGEST THAT YOU 
KEY THIS IN. BE SURE TO READ THE TUTORIAL WITH IT! 

OTHER THAN THE SOUND VARIABLES, AND PORT COMMANDS, THERE ARE 
THREE OTHER NAYS OF ACCESSING SOUND IN THE BALLY, "MU=", "TV=", 
AND "PRINT ". THESE ARE UNDER THE HEADING OF: 


I NDI RECT SOUMD BORT ACCESS 


ON PG.71 TO 73 OF VOL.1 ARCADIAN IS THE TUTORIAL ON INDIRECT 
SOUND PORT ACCESS. THE CHART ON PG.73 HOLDS TRUE FOR BOTH BB AND 
EB. AB USES A DIFFERENT KEYBOARD CODE. THAT IS, THE "A" <TV=65) 
FOR EXAMPLE, GIVES A 17> VALUE OF 27 IN BB OR EB. IN AB IT'S 
43. LISTEN TO SOME KEYBOARD SOUNDS BETNEEN AB, BB, AND EB, IF 
YOU HAVE ACCESS TO THESE BASICS, AND YOU'LL UNDERSTAND WHAT I'M 
SAYING. GEORGE MOSES SENT ME A COUPLE OF LETTERS <MENTIONED LAST 
MONTH) CONTAINING THESE TWO SHORT PROGRAMS: 


I .MO AND TA SHIFT ROUTINE 

5 CLEAR 

6 PRINT " NOTE MO TA 

10 FOR A=48T0 55;NT=10 

20 PRINT " -",;TV=A;NT=@;GOSUB 100;NEXT A 
90 NT=0;STOP 

100 NT=0;PRINT MO,TA;RETURN 


1 .MO AND TA PRINTOUT ROUTINE 
10 CLEAR ;GOTO 20 
15 BOX 0,8,160,8,2 

20 NT=3; PRINT " INPUT NOTE ",;FOR B= 1TO *2; B) =KP ;TV=@< B) ; I F @<B 
) # 13NEXT B 

30 NT=@;PRINT ;CY=-8;PRINT " NOTE MO TA 

40 NT=20;CX=-71;FOR A=1TO B- 1 ;TV=@<A) ;NEXT A;NT=@;PRINT MO,TA;GO 
TO 15 


SUBSTITUTE A "+", "x", OR A SPACE, FOR THE PRINTED "-" 

IN LINE 20 OF THE FIRST PROGRAM TO SEE ALL THE SHIFT VALUES. THE 
SECOND PROGRAM GENERATED THE DATA FOR THE CHART THAT FOLLOWS. 

[ALSO IN GEORGE'S LETTER BY THE WAY): 

3g _ -J 
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KEYPAD " KARACTER ' 


FREQU Elh'J C I ES 


MO 

TA 

CHAR 

MO 

TA 

CHAR 

MO 

TA 

CHAR 

MO 

TA 

CHAR 

MO 

TA 

71 

100 

ic 

71 

70 

-8 

71 

52 

C 

71 

41 

S 

71 

25 

71 

94 

' 

71 

69 

8 

71 

52 

D 

71 

40 

T 

71 

24 

71 

89 

( 

71 

68 

+ 8 

71 

52 

E 

71 

39 

U 

71 

23 

71 

89 

) 

71 

67 

-9 

71 

51 

F 

71 

38 

V 

71 

22 

71 

84 

X 

71 

66 

9 

71 

51 

G 

71 

37 

w 

71 

21 

71 

79 

+ 4 

71 

66 

+ 9 

71 

51 

H 

71 

36 

X 

71 

20 

71 

79 

-5 

71 

66 


71 

50 

I 

71 

35 

Y 

71 

19 

71 

75 

, 

71 

64 

; 

71 

49 

J 

71 

34 

Z 

71 

18 

71 

74 


71 

62 

7 

71 

49 

K 

71 

33 

i 

71 

17 

71 

74 

5 

71 

62 

< 

71 

48 

L 

71 

32 

\ 

71 

16 

71 

74 

/ 

71 

61 

> 

71 

46 

M 

71 

31 

] 

71 

15 

71 

73 

+ 5 

71 

59 

+ 7 

71 

46 

N 

71 

30 

t 

71 

14 

71 

72 

-6 

71 

59 

? 

71 

45 

0 

71 

29 

<- 

71 

13 

71 

71 

6 

71 

55 

e 

71 

44 

P 

71 

28 


71 

12 

71 

70 

+ 6 

71 

52 

A 

71 

43 

Q 

71 

27 


71 

1 1 

71 

70 

-7 

71 

52 

B 

71 

43 

R 

71 

26 

0 

71 

0 


IF YOU RUN THE SHIFT ROUTINE FURTHER YOU"LL FIND THAT TA CAN 
ONLY SHIFT IF A NUMBER FROM 1 TO 7 GETS PRINTED. THE "+ H AND 
SIGNS HAVE NO EFFECT IF FOLLOWED BY AN ALPHABETIC CHARACTER OR A 
SYMBOL. EXAMPLE: PRINTING "+T" OR "-T" GIVES "T" SOUND. 

TA IS ALWAYS RESET TO ZERO AFTER A NOTE PLAYS. VA IS ALSO 
RESET TO ZERO. THIS CAN BE USED TO ADVANTAGE. HERE ARE TWO LINES 
FROM U.F.O. ATTACK (AVAILABLE AS PART OF QUADRA): 

14 C=X;1=0:VA=15;FOR D=Y-HTO -40STEP -B;GOSUB 6 ;C=C+J;LINE C,D,I 
5 1F V>0TA=40-D;BOX C+E+ 8 ,D+3,1, 1,1 

18 MU=RND < 9) +32; I F H>0GOSUB 3;P=P+1 


THERE ARE NO OTHER SOUND COMMANDS IN LINES 15, 16, OR 17, OR 
IN SUBROUTINE 6 . V>0 WHEN A FLYING SAUCER GETS HIT. SO THE LOOP 
GIVES A FALLING SOUND USING TA + VA. WHEN THE CRASH SOUND PLAYS, 
(LINE 18), TA + VA RESET TO ZERO TURNING OFF ALL SOUND. 

UNLIKE MO! ON PG.71 VOL. 1 ARCADIAN ONE FALSE STATEMENT WAS 
MADE. "AS SOON AS THE NOTE IS FINISHED, &(16) WILL AGAIN RETURN 
TO 71 UNLESS THE NEXT NOTE IS ALSO PRECEEDED BY A * (OR x>". NOT 
SO ! 1 MO SHIFTS TO ONE OF FOUR NUMBERS (71, 35, 143, OR 0), AND 
STAYS RIGHT THERE ! UNTIL ANOTHER SHIFT OCCURS, OR A &(16) OR "1" 
COMMAND IS ENCOUNTERED. A "MO=" COMMAND MAY NOT ALWAYS WORK. IN 
SPACE MISSION FOR EXAMPLE, HALTING PART 2, AND KEYING IN "NT=0; 
M0=71" DOES NOTHING! AND, IF YOU KEY IN "PRINT MO", YOU"LL FIND 
MO ALREADY IS 71!! CONFUSED? HERE ARE YOUR CLUES: MO INPUTS FROM 
THE TAPE AND 8 k( 16) DOESN"T, BUT IF YOU STARTED LOOKING IN PART 1 
YOU"RE ONLY HALF RIGHT. ALSO, BY CAREFUL LISTENING YOU WILL FIND 
THAT &i(16>=0! IN ANTI-AIRCRAFT GUN MODS (LAST MONTH), THE SHIFT 
IS IN LINE 12. ALL FURTHER ANSWERS NEXT MONTH! KEEP BUGGIN"' 
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MATH QUIZ 

BY BOB WEBER INSTRUCTIONS FOR 

MATH QUIZ 


LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
= SPACES. 765 CHARACTERS 

2 . 

3 . 

4 . 

5 .MATHJ3UIZ 

8 W=5 

10 clear 

12 BC=rnd (256);FC=BC+U 
15 D=0;T=0 

30 A=rnd (W)+5 
35 if Q=10goto 2000 
40 B=rnd (W)+5 
50 S=rnd (4) 

52 Q=Q+1 

55 N=0 

60 i-f S=lgoto 200 
70 if S=2goto 300 
80 if S=3goto 400 
90 print A,#1 ,B, "=", 

100 input "?"C 

110 if C=A+Bif N=0T=T+l;print “RIGHT!";goto 
30 

115 if C=A+Bgoto 3000 
120 N=N+1 

130 if N<3goto 90 
140 Y=A+B;gosub 1000 
150 goto 30 

200 print A,#l,, 

210 input “?"C 

220 if C=A-Bif N=0T=T+1;print “CORRECT!";got 
o 30 

225 if C=A-Bgoto 3000 
230 N=N+1 

240 if N<3goto 200 
250 Y=A-B;gosub 1000 
260 goto 30 

300 print A,#l, "x“ ,B,, 

310 input "?"C 

320 if C=AxBif N=0T=T+l;print “G00D!";goto 3 
0 


ENTRIES ARE MADE VIA THE KEYPAD WITH 
OVERLAY. KEY IN THE ANSWER. USE THE 
MINUS SIGN WHEN APPLICABLE. PUSH GO. 

COMPUTER WILL GIVE 10 PROBLEMS 

DEPENDING ON YOUR ANSWERS THE COMPUTEER 
WILL ADJUST TO YOUR ABILITY LEVEL. IT 
GETS MORE DIFFICULT AS YOU DO BETTER 
AND IT GETS EASIER AS YOU DO DUMBER. 

DON'T WORRY. WE WON'T TELL OTHERS HOW 
YOU SCORED. 


325 if C=AxBgoto 3000 
330 N=N+1 

340 if N<3goto 300 
350 Y=AxB;gosub 1000 
360 goto 30 

400 print AxB,#l,"t",A,, 

410 input "?"C 

420 if C=Bif N=0T=T+1;print "TERRIFIC!";goto 

30 

425 if C=Bgoto 3000 
430 N=N+1 

440 if N<3goto 400 
450 Y=B;gosub 1000 
460 goto 30 

1000 print "THE_CORRECT_ANSWER_IS_",#1,Y 
1010 return 

2000 print "TOTAL NUMBER_CORRECT_OUT__OF_10_ 
= " i #3,T 

2010 for Z=lto 1000 

2020 next Z 

2030 if T>7W=W+1 

2040 if T<5W=W-1 

2050 if W<1W=1 

2060 goto 10 

3000 print “Y0U_G0T_IT!" 

3010 goto 30 
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THIS MONTH WE'LL BE LOOKING AT THE MOST MISUNDERSTOOD AND 
THE LEAST UNDERSTOOD QUIRK THIS LITTLE MACHINE OF OURS HAS. IN 
FACT, EVERYONE EXCEPT THE TOP EXPERTS IS STILL STUMPED WHEN HE 
ENCOUNTERS THE BIGGEST MESS WE'ME GOT; 


MO SHIRT 


MO IS NORMALLY SET TO 71 IN BASIC AND IF YOU HIT THE [RESET] 
BUTTON THIS IS WHAT YOU GET. BUT, IN CARTRIDGES IT'S DIFFERENT! 
THERE IS AN ON BOARD SUBROUTINE THAT RESETS ALL THE SOUND PORTS 
TO ZERO. IT CAN BE REACHED FROM BASIC IN FOUR WAYS. BY "NEW" IN 
MI PER SOFT, OR "CALL" AND THIS SHORT MACH CODE ROUTINE; 


SNDOFF.PUSH.DE 
.RST.38H 
.DB.20 
.POP.DE 
.RET. 


;SAME BASIC POINTER 
;CALL SUBROUTINE 
;SUBROUTINE NUMBER 
;RESTORE BASIC POINTER 
;RETURN TO BASIC 


(USE "A=20260 ;X< A) =-43;X<A+2) =-120 12;X<A+4) =20 i" TO POKE AND 
"CALLA" TO USE IT) . THE "PLAY" COMMAND <BRB ONLY) REACHES THIS 
ROUTINE ONLY IF NO ARGUMENTS FOLLOW THE BASIC COMMAND, AND THE 
OTHER WAY TO REACH THIS ROUTINE IS IN SPACE MISSION. LINE 730 OF 
PART 1 RUNS SUBROUTINE 250 JUST BEFORE LOADING PART 2. WITH THIS 
YOU CAN [HALT] THE PROGRAM THE MERY INSTANT "START TAPE" APPEARS 
ON THE SCREEN. THEN TURN ON THE PAROLE JET SOUND THIS WAY: 


ENTER>&<23) =60 ;&<21) —1 

THE SOUND SHOULD BE NORMAL. NOW ENTER ":INPUT ", PRESS [GO], 
[HALT], AND REENTER THE PAROLE JET SOUND. &<16)=0' THE ON BOARD 
SUBROUTINE IS REACHED FOR INPUT " IN AB, BUT AT NT<@ ONLY! SO, 
THE ANSWER TO THE CONTEST WAS THAT PART 2 IS TAPED WRONG. TO 
CORRECT, RELOAD PART 2 AND CHANGE LINE 20 TO READ: 

20 A=< B- 151) t8 ;NT=- 1 ;8*< 23) =60 ; IF A= 1N=5 


CHANGE NT TO ZERO, THEN REENTER THE FINAL TAPING COMMAND AND 
TAPE OMER THE OLD PART 2. THIS IS A LOT EASIER THAN CHANGING 
LINE 730 OF PART 1 (YOUR OTHER OPTION) TO READ: 

730 GOSUB 250;:INPUT ;NT=-1;RUN 
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RULE 1 IS NEVER TAPE AN AB PROGRAM AT NT<0 IF YOU WANT &(16) 
NOT TO BE ZERO. RULE 2 IS IF YOU USE "PL." TO TURN OFF SOUND (IN 
BRB ONLY) &(16) WILL BE ZEROED OUT. RULE 3 IS WHEN YOU SHIFT MO 
WITH THE "x" OR "+■ SIGNS <NT>0> THEN USE THE DIRECT SOUND PORT 
ACCESS COMMANDS, MO WILL BE SHIFTED TO 35 FOR "x" AND 143 FOR 
ANTI-AIRCRAFT GUN MODS HAD THIS PROBLEM. TO CORRECT, EITHER 
ADD A SPACE TO THE END OF LINE 12, OR CHANGE LINE 12 TO: 

12 PRINT " 135+7 5+700 

RULE 4 IS THE "FLAG RULE". WHEN A "x" OR ■+■ GOES TO THE 
SCREEN ( REGARDLESS OF NT) A FLAG IS SET, SO THAT THE NEXT QUOTE, 
"TV=", OR "MU=", SHIFTS MO, (NT>0). ONLY PRINTING A NUMBER OR A 
VARIABLE DIRECTLY ( EXAMPLES "PRINT 8;PRINT A") DOESN'T SHIFT MO. 

THE MO AND TA SHIFT ROUTINE PRINTED LAST MONTH DIDN'T GIVE 
THE CORRECT MO SHIFT NUMBERS BECAUSE OF RULE 5. &( 16) IS SHIFTED 
WHEN THE NOTE STARTS TO PLAY AND MO IS SHIFTED WHEN IT FINISHES. 
TO CORRECT THIS, REMOVE THE QUOTED SPACE JUST AHEAD OF THE SHIFT 
SIGN IN LINE 20. YOU WERE READING THE SPACE AND GETTING 71 IN 
ALL BUT THE "1", WHICH IS BECAUSE THE "0" DOESN'T USE THE FLAG. 
THE “0" WON'T SHIFT MO BY FOLLOWING “x" OR ■+" EITHER. A SPACE 
DOES, AND TWO SPACES CAN KILL A SET FLAG. (SHIFT, THEN RESET) 
RULE 6 IS THAT ALL NT VALUE OR INDIRECT SOUND CHANGES TAKE 
PLACE DURING THE SCREEN INTERRUPT. IF YOU WERE TRYING: 

ENTER>NT=0;M0=71;NT=-1;GOT0 30 

ON SPACE MISSION (PART 2), YOU DID NOT GET A CHANGE IN MO. 
BUT IF YOU KEYED IT IN ONE INSTRUCTION AT A TIME YOU DID. IN ONE 
LINE, IT EXECUTES TOO FAST FOR THE SCREEN INTERRUPT TO CATCH, 
(SOMETIMES ANYWAY). NT HAS A COUPLE OTHER QUIRKS ALSO. TRY: 

10 NT=50;PRINT "10000 

20 GOSUB 40;PRINT "100000 

30 GOSUB 40;NT=2;STOP 

40 FOR A=0TO 3000;NEXT A;RETURN 

SEE PG.71+72 OF VOL.1 ARCADIAN FOR THE EXPLANATION, OR NEXT 
MONTHS COLUMN WHEN WE DISCUSS "NT SHIFT" (WOULD YOU BELIEVE)! IN 
AB, NT CONTROLS MORE THAN INDIRECT SOUND ACCESS TIMING, IT ALSO 
FREES US FROM THE SOUND VARIABLES. BUT BE CAREFULL! IF YOU WERE 
USING THE SOUND VARIABLES, AND TURNED SOUND OFF BY "VA=0;VB=05 
VC=0;NV=0" THEN SAID "NT=-1" YOU MAY FIND THAT THE SOUND COMES 
BACK ON. THE CHOICE WAY TO KILL SOUND IS A SUBROUTINE, SUCH AS: 

?0NT=0 ; 4- 27 NT=0 ;PL. ;&:( 16)=71 

THESE ARE FROM THE LASER,&SLIDE PART OF QUADRA, AB+BRB 4K 
VERSIONS RESPECIVELY. A SHORT DELAY IN THE FOLLOWING LINE (OF 
BOTH VERS.) PRECEDES "RETURN ". TILL NEXT MONTH, KEEP BUGGIN'!! 
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INSTRUCTIONS FOR 
ALIEN PATROL 


V. 


LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
= SPACES. 1673 CHARACTERS 

20 BC=5;FC=33;F=1006; T=5;S=0:Q=1 

70 ■for Z=0to 60;@<Z)=0;next Z 
100 -for Z— lto rnd (30) 

110 A=rnd (3) 

120 B=rnd (60) 

130 i-f @ (B) >0goto 120 
140 @(B)=A;next Z 
160 clear ;A=1 
170 gosub 300 
180 gosub 5000 
190 goto 6000 

200 box 0,-14,160,52,2;return 
300 P=rnd (3)-2;M=0;C=rnd (80)+9 
310 for Z=lto 60;if @<Z)=3M=M+1 
320 next Z 

340 if M=0print "ALL_ALIENS_DESTROYED!";prin 

t "RETURN_TO_BABE!";A=2 

360 return 

1000 Q=Qx(-1);S=S+Q 

1030 if S>60S=60;D=0 

1040 if S<0S=0 

1050 F=F-10;if F<0goto 5000 

1070 gosub 5000 

1080 if S=0D=0;goto 1110 

1090 if D=lgoto 2000 

1100 goto 6000 

1110 if F>0if M=0print "YOU.WON!";goto 20 
1120 goto 6000 
2000 F=F-5 

2020 if @(S)=0goto 2500 
2025 NT=3 

2030 if @(S)=lgoto 2600 

2040 if @(S)=2goto 2700 

2050 print "ALIEN_SHIP_IN_SECTOR! 11 

2060 if T>0print "SUB-SECTOR",#9,C 

2070 X=rnd (2);if X=2goto 2120 

2080 if X=lprint "ALIEN.HAS.FIRED.MISSLE!" 

2090 X«rnd <3);if X=lprint "YOU.HAVE.BEEN.HI 

T!";F“F-100 

2110 if A=lif X=lgoto 2610 
2115 if X=lif A=2goto 9000 
2117 print "HE_MISSED!“ 

2120 if T<lgoto 2530 
2130 if D=lD=0;goto 3003 
2140 goto 3000 
2500 print "SECTOR.EMPTY!" 

2530 if D=lS=S+Q;goto 1030 

2540 goto 180 

2600 print "METEOR.STORM!" 

2610 E=rnd (2);if E=lprint "HEAVY",jF=F-50 
2630 if E=2print "LIGHT",;F=F-10 
2660 print ".DAMAGE!";gosub 5000 
2665 if X=1D=0:X=0 
2670 goto 2530 

2700 print "FUEL STATION!";if T=0T=5;D=0;got 
o 2750 

2705 if M=0goto 2750 
2710 if F>499goto 2530 

2750 F-F+500 

FetbrvM 


ENTRIES ARE MADE VIA KEYPAD WITH OVERLAY. 
COMPUTER ASKS YOU TO SELECT 1 OF 3 OPTIONS. 
#3, REFUELING, ONLY APPEARS IN SECTOR 0 
(HOME BASE); IT IS USED WHEN YOU DO NOT 
FIND ANOTHER FUEL STATION AND NEED ONE. YOU 
MAY REVERSE AND RETURN TO SECTOR 0. 

WHEN COMPUTER REACHES A FUEL STATION IT WILL 
AUTOMATICALLY REFUEL IF YOU ARE BELOW 500 
UNITS OF FUEL, OR OUT OF MISSILES. 

WHEN UNDER COMPUTER CONTROL THE COMPUTER 
WILL STOP TO FIGHT ALIENS. REFUEL IF NEEDED 
AT SECTOR 0, AND AT SECTOR 60 (OUTER LIMITS) 
WHENEVER IT STOPS, YOU CAN EXERCISE YOUR 
OPTIONS. IF YOU RUN OUT OF MISSILES WHEN 
FIGHTING AN ALIEN, YOU MAY LEAVE TO FIND A 
FUEL STATION AND RETURN TO COMPLETE THE 
BATTLE. THIS IS A ONE PLAYER GAME. 


2760 if F>1006”=1006 
2775 @(S)=0;if D=lgoto 2530 

2780 goto 180 

3000 input "input SUB-SECTOR"L;goto 3005 
3003 L=C;print "FIRE.MISSILE!";gosub 310 
3005 CY=0;T=T-1;C=C+P 

3010 aosub 200 

3020 if L=Cprint "ALIEN.DESTROYED!";@(S)=0;g 
oto 170 

3030 print "MISSED!gosub 5020 
3050 goto 2060 
5000 NT=0 

5020 CY=44;F=F-l;if A=lF=F-5 
5030 if F<100A=2 

5040 print "LOCATION:SECTOR",#4 ,S 
5050 print "SHIELDS.", 

5060 if A=lprint "UP" 

5070 if A=2print "DOWN" 

5080 if M#0prlnt "MISSILES:",#10,T 

5083 if M=0print "FUEL.NEEDED:",#7,Sx16 

5085 if F<0F=0 

5090 print "FUEL:",#14,F 

5095 gosub 200 

5100 if F<lgoto 9000 

5103 if M>0if A=2print "DANGER!" 

5105 if T=0pr:nt "FIND.FUEL.STATION!" 

5110 if F<200p-int "FUEL.LOW!" 

5130 return 
6000 gosub 200 

6003 if S=60print "OUTER.LIMITS";goto 6010 
6005 print 

6010 print “l-COMPUTER.CONTROL" 

6020 print "2-REVERSE" 

6030 if S=0print "3-REFUEL" 

6040 if T>0if @(S)=3print "4-FIRE.MISSILE" 

6050 if &(23)=BD=1;goto 2530 

6060 if t<(22)-SD=l;goto 1000 

6070 if &(21)=Sif S=0goto 2750 

6080 if &(23)“4goto 3000 

6100 goto 6050 

9000 NT=9;print "LIFE.SUPPORTS.FAILING!";pri 

nt "ALIENS.HAVE.WON 1 ";goto 20 
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><>< TRICKS OR the: t ra de > < > < 

><><><>< TUTOR I AL BY ><><><>< 

><><><>< mike: white: ><><><>< 

><><><>< CO UMT Y LIME: ** 2 ><><><>< 
><><><>< R.D.ttl BOX 373 ><><><>< 
><><><>< NAK EMAN , OHIO ><><><>< 
><><><>< -4-4BSR ><><><>< 

MT SHIRT 

LAST MONTH I SHOWED YOU THE PROGRAM THAT DEMONSTRATES THE 
LIMIT OF "NT SHIFT". ADDING ZERO'S TO A PRINTED QUOTE OR 48'S TO 
"MU'S" ONLY ADDS NT VALUE TO THE TIMER. THE TIMER DOESN'T START 
OVER, OR RUN FOREVER. THE TIMER APPEARS TO BE AT *<20094) IN AB. 
IF YOU LOWER &<10), AND START A LONG NOTE PLAYING, THIS ADDRESS 
GETS VERY BUSY. NT HOWEVER, IS AT *<20058), AND IS TWO BYTES, 
NOT TO BE CONFUSED WITH THE TIMER WHICH IS ONLY ONE! ADDING "0"S 
TILL A NT GREATER THAN 255 IS REACHED, ONLY RESULTS IN THE UPPER 
BYTE BEING IGNORED. THE SECOND NOTE IN LAST MONTH'S DEMONSTRATER 
YIELDS A NT VALUE OF 44 <50x6-256=44). LASTLY, TRY THESE: 

10 NT=250;MU=66;G0SUB 40 10 NT=25@ 

20 NT=300;MU=77;GOSUB 40 20 k<23)=-l 

30 NT=0 ; STOP 30 &<21)=-1 

40 FOR A=1T0 1000;NEXT A;RETURN 40 IF KP NT=0 

THE FIRST PROGRAM GIVES A LONGER NOTE THE FIRST TIME IN ALL 
BUT AB. IN AB, THE 8TH BIT TURNS OFF THE SOUND VARIABLES, AND 
KILLS INDIRECT SOUND PORT ACCESS, AS THE SECOND PROGRAM SHOWS. 
ALSO, IF YOU WISH A NOTE TO PLAY LONGER THAN 4.3 SECONDS <EQUAL 
TO NT=255) USE DIRECT SOUND PORT ACCESS. THE CHARTS GIVEN IN 
THIS COLUMN THIS YEAR <AND IN THE ARCADIAN V0L.1) WILL HELP YOU. 

hide: an d surrrise: 

THIS IS THE ART OF VIDEO MAGIC! TO BRING GRAPHICS TO THE 
SCREEN IN AN UNNATURAL OR UNUSUAL MANOR. IN AB + BB WE HAVE THE 
LINE AND BOX COMMANDS AS WELL AS THE "ON BOARD" CHARACTERS THAT 
WE CAN GET TO WITH THE PRINT COMMAND OR "TV-?". THESE LAST TWO 
METHODS HAVE THE PLEASENT FEATURE OF DISPLAYING A FAIRLY COMPLEX 
CHARACTOR, INSTANTLY! THE LIMIT OF COURSE IS TO THE "ON BOARD" 
CHARACTOR SET. "UNCONVENTIAL" CHARACTORS ARE USUALLY BUILT ONE 
LINE OR BOX AT A TIME, WITH THE BUILDING BEING SHOWN. IN SOME 
CASES THAT'S DESIRABLE, BUT IN MOST IT ISN'T. FOR INSTANCE, WE 
HAVE A PROGRAM THAT LAUNCHES SKYROCKETS. EACH ROCKET DISSAPPEARS 
FOR A SECOND, AND THEN AN EXPLOSION IS SEEN. THE EXPLOSION MUST 
BE BUILT WITH RANDOM LINE COMMANDS, BUT NEEDS TO APPEAR ALL AT 
ONCE! IF YOU'VE SEEN FIREWORKS <BY ME) YOU KNOW WHAT I'M TALKING 
ABOUT. IF YOU HAVEN'T, SIMPLY ASK KEVIN O'NEILL OR MYSELF ABOUT 
NIAGARA BUGS CLUB TAPE! YOU WON'T BE SORRY!! 
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CQNCENTRATX ON 

BY BOB WEBER 


^RRmpimh CS 


V«( 1^ 3 


LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
= SPACES. 1602 CHARACTERS 

9 NT=0 

10 clear ;BC=rna (256):FC=BC+11;A=0;B=0:C=0: 
W=0:T=0;L=0:for 2=0to 39;@<Z)=0;next Z 

20 tor Z=lto 20iC=rna (26)+64;oosuo 180sgosu 
b 180: next Z 

41 CY=0; V=KN(1) t-85+3;Drint “#_OF_PLAYERS?".# 

2,V:if TR(l)goto 45 

44 goto 41 

45 it TR(l)goto 45 

50 clear ; X=-64; Y=28; -for Z=0to 3 :lX=X:CY=Ysp 

60 X=-54;Y=28:C=0:tor Z=lto 40;box X,Y,11,11 

, 1; X=X+12; if X>54X=-54; Y=Y-12 

100 next Z 

101 X=-53;Y=-20s-for Z=0to 9;CX=X:CY=Y;print 
#1. Z:X=X+12:next Z 

105 box 0,10.123,51,3 

106 box 0.10.121.49.3 

110 T=T+1;it T=V+1T=1 

130 CY=-30:print “PLAYER.#",#2,T 

131 CY=-30:CX=10: onnt ,, MOVE_#1 , ';O=2;E=0;F=0 
;G=0 

132 if TR(T)goto 132 

133 i-f JY<T) =1£=KN(T)t-64+2: goto 135 

134 F=KN(T)s-24+5:it F>9F=9 

135 CY=-30:CX=60 

136 print #1,E,F 

137 it TR(T)E=Ex10tF;goto 210 

138 goto 133 

140 CY=-30:CX=10:print “M0VE_#2 

141 i-f J Y (T) = 1 F=KN(T)r64+2: goto 143 

142 G=KN(T):-24+5;if S>9G=9 

143 CY=-30:CX=60 

144 orint #1,F,S 

145 it TR<T)F=Fx10+G:goto 147 

146 goto 141 

147 it TR(T)goto 147 

148 i-f E=F_F=0;goto 141 

149 goto 240 

150 CY=40:print “#1=",#1,A,"_#2=",B,"_#3 

= ".C,“__#4=",W 

160 it L=2goto 900 

165 it U=igoto 130 

170 goto 110 

180 D=rnd (40)-l 

190 if £ ID)>0qoto 180 

200 @(D)=C:a<D+40)=C:return 

210 if TR(T)goto 210 

212 G=£:if @(Si=0goto 130 

215 0=0;F=0 

220 P=ll:0=2:gosuo 500 

230 goto 140 

240 S=F:if @(G)=0F=0;goto 140 

245 0=0 

250 gosub 500 

255 box 0,-30,160,14,2 

260 if @(E)=@(F)goto 320 

270 CX=-80;CY=-30:print "NO.MATCH!“ 

271 for Z=lto 500:next Z 


CONCENTRATION 
BY BOB WEBER 
in Astro-Basic 

DIRECTIONS: 

Uses nano controller. The object is to 
match letters to score points. With your 
joystick forward or back, turn knoo to select 
tens digit. With joystick in tne normal 
position, turn knob to select units digit. 
Pull tne trigger to uncover the sauare. 

This is a 2 to 4 player game. 


274 U=0 

275 0=1 

280 G=E;P=11:0=1 

290 gosup 500 
300 G=F:gosuo 500 
310 goto 110 

320 0=0:CX=-80;CY=-30;print "CORRECT!" 

321 NT=10 

322 MU=49;MU=51;MU=53;MU=“x“:MU=49:nU=48;MU= 
53: MU="x ": rtU=49:rtU=48: MU=48: MU=4S: MU=48 

323 NT=0 

329 U=1 

330 @(E)=0:a(F)=0 

335 0=1 

340 G=E:P=11:0=1 

350 gosub 500 
360 G=F;gosuD 500 
370 if T=1A=A+1 

375 if T=3C=C+1 

376 if T=4W=W+1 

380 if T=2B=8+1 
390 R=0 

400 for Z=0to 39 
410 if @(Z)>0R=R+1 
420 next Z;if R=0L=2 
430 goto 150 
500 X=-54;Y=2S 

510 n=Gf 10; N=G-f1x 10; X=X+Nx 12; Y=Y-Mx 12 
520 if 0=1box X,Y,P,P,Q 
525 if 0=00=2:box X,Y,P,P,Q 
530 if Q=2CX=X;CY=Y;TV=@(G) 

535 if 0=1if U=lbox X,Y,9,9,2 
540 return 

900 for Z=0to 39:@(Z)=@(Z+40):next Z 
910 for S=0to 39:O=0;P=ll:Q=2;gosub 500;next 
G 

1000 if TR(l)goto 10 
1010 goto 1000 
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><>< TRICKS OR THE: TRADE ><>< 
><><><>< Ah T UT OF'IAL BT ><><><>< 
><><><>< MI KE WHITE! ><><><>< 
><><><>< COUNTY LINE =H=2 ><><><>< 
><><><>< R.D.#1 BOX 373 ><><><>< 
><><><>< EJA K EMAN „ OHIO ><><><>< 
><><><>< ><><><>< 


670 &( 1?)=80 ;k(0)=7;&( 1) =7 ;&( 2) =7 ;&( 3) =7 ;&( 9) =30 ;FOR FA=7T0 1 
STEP -1;GOSUB 98;NEXT FA;G=1;GOSUB 63,NT,2,-32,8,5;FOR FA=262T0 
8 STEP -5;GOSUB 98;NEXT FA 

680 &c ( 10)=96;8*(9)=63;&( 19) =70 ; FOR FB=7T0 1STEP -1;G0SUB 98;NEXT 
FB;G=2;GOSUB 63,CX,-32,8,6;FOR FB=262T0 8STEP -5;GOSUB 98;NEXT 
FB 

690 &( 19)=60;&(9) = 10;&( 10) = 176;FOR X=7T0 ©STEP -1 ;&( 1) =X; GOSUB 
98;NEXT X;G=4;G0SUB 63,CX,-32,8,5;FOR X=262T0 7STEP -5;&(1)=X; 
GOSUB 98;NEXT X 

700 &:< 9) =63 s BOX 0,50,148,3,3;BOX - 1,28, 13, 13,3; BOX 0,38,100,5,3; 
&( 19) =50; FOR FB=7T0 1STEP -1;G0SUB 98;NEXT FB ; G=3; GOSUB 63, CX, 
-32,8,6;FOR FB=262T0 8STEP -5;GOSUB 98;NEXT FB 

710 BOX 0,50,148,3,3 ; BOX -1,28,13,13,3 ; BOX 0, 38 ,100,5,3 ; BOX 0,8, 
74,8,4;BOX 0,8,44,13,7;BOX 0,8,40,9,4;DATA NT,0,-15,8,7;PRINT 
"QUADRA", 


THE ABODE IS FROM THE 16K QUADRA. THE TITLE IS DRAWN, THEN 
THE SCREEN IS FADED TO ALL WHITE. LINES 670 THROUGH 700 REDEAL 
ONE QUADRANT AT A TIME. SUBROUTINE #98 IS A SHORT TIME DELAY AND 
#63 PRINTS TITLES OUT DEPENDING ON DARIABLE "G". "FA" AND "FB" 
ARE THE OTHER TWO COLORS IN EB (FOR YOU AB + BB USERS), AND THE 
WORD "DATA " OR "GOSUB A,B,C,D,E,<ETC.)" ISA FAST WAY TO LOAD A 
STRING OF DARIABLES. IN "GOSUB " THE FIRST NUMBER IS THE NUMBER 
OF THE SUBROUTINE. THE SECOND IS THE DARIABLE TO START LOADING 
AT. THE REST IS DATA TO LOAD. THE SEQUENCE IS, "NT,CX,CY,CC". WE 
KNOW ABOUT NT,CX, AND CY FROM AB. CC IS "CHARACTER COLOR" AND IT 
CONTROLS WHICH COLOR WE "PRINT " IN <5=FA, 6 =FB, 7=FC> . NOW, LET 
US STUDY THIS! THE LEFT SIDE OF THE SCREEN ONLY IS FADED IN, AND 
TITLE "G" IS PRINTED, THEN "FOR FA=262T0 8 STEP -5" FADES FA BACK 
TO WHITE (THE LOOP STOPS AT 7, SEE NIAGARA BUG BULLETIN DOL.2 
PG.27+33). &<10) IS MODED UP, AND THE TOP OF THE SCREEN IS FADED 
THE SAME AS BEFORE (USING FB) . 8 *(9) IS SET, AND THE RIGHT SIDE 
OF THE SCREEN IS SHOWEN BY TYING &( 1) TO A DARI ABLE ( 8 *( 1) IS FA 
RIGHT OF &c(9)>. THEN 3 BOXES "MASK OUT" THE TOP BY USING "XOR" , 
AND THE BOTTOM IS DIEWED THE SAME AS THE OTHER PARTS. THE BOXES 
ARE "XOR FC". IF THEY ODERLAY FB IT BECOMES FA. FC BECOMES BC, 
AND BC BECOMES FC. NO FA PIXELS ARE HIT. SO AN FB FADE WILL ONLY 
SHOW THE BOTTOM OF THE SCREEN. LINE 710 HEALS THE TOP AND CENTER 
OF THE PICTURE (A LOT FASTER THAN REDRAWING IT). 

THIS PART, BEING IN THE 16K DERSION ONLY, IS NOT CRAMPED FOR 
SPACE. LINE #670 WOULD HADE USED “FOR X=0TO 3;&(X)=7;NEXT X", IN 
PLACE OF THE 4 PORT COMMANDS (SADING 11 BYTES) IF IT HAD BEEN. 


sz 


J 





/ <RRCRD I fa 7 m.3 \ 


NE MUST ALWAYS LOOK FOR NEW WAYS TO IMPROVE OUR PROGRAMS, OR 
EVEN SOMEONE ELSES! THIS IS HOW I GOT STARTED. LAST MONTH I LET 
YOU SEE TWO SUBROUTINES FROM STARBASE I BY GREG MIEJSKI. THEN I 
CHALLENGED YOU TO REWRITE THEM FOR EFFICENCY. DID YOU GET THIS? 

7 &:( 2 1) =8 ;FOR FC=7T0 1STEP -l;FOR A= 1TO 20 ;NEXT A;NEXT FC;RETURN 

8 FOR FC=0TO 6;FOR A=1T0 2@;NEXT A;NEXT FC;FC=91;RETURN 

ONLY THE "91" IS MY FAULT. I DIDN'T SAY WHAT THE VALUE OF 
"F" WAS LAST MONTH. THIS SETS FC TO A DULL RED. 

ALSO, LAST MONTH I PROMISED TO EXPLAIN THE "SHRINKING" “Q" 
AND THE "FLASHLIGHT EFFECT", FOUND IN THE 16K QUADRA. THE SECRET 
IS IN THE USE OF XOR! THIS LINE DOES THE "FLASHLIGHT EFFECT": 

2000 &i(23) =-1;FOR X= 1TO 20 ;&(21) =RND (Xx 10) ;GOSUB 6;NEXT X; 

&c< 10) — 0 : GOSUB 9 , BC , 0 , 103,0,204 ;«*( 9) =63; DATA NT , 0 , - 17,48,5 ; PRINT 
"0H N0!! 

NOTICE THE "GOSUB 9,BC,0,103,0,204“ . THE COLOR VARIABLES ARE 
LOADED IN ORDER <BC,FA,FB,FC). THE SCREEN IS DRAWN IN FB. THE 
FLASHLIGHT SPOT IS DRAWN IN FA AND SNAPED TO LINE #6000. THEN 
THE SPOT IS SHOWEN USING XOR! THE BC AND FB COLORS ARE THE SAME, 
MEANING THAT THE SCREEN REMAINS HIDDEN UNTILL THE SPOT HITS AN 
OBJECT. THEN BC BECOMES FA, AND FB BECOMES FC (DARK BLUE). THIS 
MEANS THAT THE SPOT IS YELLOW "103", THE SCREEN IS BLACK "0", 
AND THE PART OF AN OBJECT HIT BY THE SPOT GETS CHANGED TO A DARK 
BLUE "204", BY XORING THE SPOT WITH THE SCREEN! XOR IS ALSO THE 
SECRET BEHIND THE "SHRINKING" "Q"! ON PG.42 VOL.2 NIAGARA BUG 
BULLETIN I SAID "IF WE DRAW AND REDRAW THE SAME REVERSE (XOR) 
LINE WE WIND UP WITH THE ORIGIONAL PICTURE REGARDLESS OF WHAT IT 
MAY HAVE BEEN." BUT, IF WE ERASE THE ORIGIONAL PICTURE USING XOR 
WE WIND UP WITH THE LINE! COMPLETE AND SOLID! SO THE "Q" SIMPLY 
XORED OFF, AND THEN BACK ON AGAIN, ONLY SMALLER. THIS PRINCIPLE 
ALSO WORKS IN REVERSE! SO WHEN THE CIRCLES, BOXES, AND LINES ARE 
XORED FROM THE SCREEN, THE "SHRINKING" "Q" IS FINE. 

6 BC=RND (256) 

7 DATA FA,BC+68,BC+196,BC+132;RETURN 

9 NT=@;PL.;&(16)=71;RETURN 

THESE ARE THE SUBROUTINES #6 AND #9 REFERED TO IN LINE #2000 
SHOWN ABOVE, "COLOR RANDOM" AND "SOUND OFF". 

SORRY I LEFT YOU AB + BB PEOPLE SOMEWHAT OUT THIS MONTH, BUT 
I WANTED TO SHOW THE ADVANTAGE OF THE 4 COLOR SCREEN IN EB. NEXT 
MONTH I'LL TALK ABOUT THE MAZE FROM SAFECRACKER, AND THE MARTIAN 
FROM QUADRA 16K VERSION AGAIN. ONLY BOTH "TRICKS" CAN BE DONE IN 
AB! WITH THE MAZE, THE SCREEN IS CLEARED AND "FUSE TIMER" ALONG 
WITH THE REMAINING TIME IS PRINTED NEAR THE SCREENS CENTER. THEN 
THE MAZE APPEARS, INSTANTLY! HOW? SINCE 4c( 10) COULDN'T HAVE BEEN 
USED? SEE QUADRA AB. TILL NEXT MONTH, KEEP BUGGIN'!!!! 
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160 if C=32TV=95;next A 

165 if C=13TV=10;1=0;next A 

170 TV='/. (A); if A<Bnext A 

180 TV=10;print ;print ;TV=26;TV=20;NT=0;:r 

eturn ;STOP 

191 TV=60;gosub 3000;TV=45; return 

192 TV=118;gosub 3000;TV=124; return 

193 TV=62;gosub 3000;TV=45;return 

194 TV=120; return 

195 TV=58;gosub 3000;TV=45;return 

200 print "line clear input print _“,;Z=4;r 
eturn 

201 print " t-line »for Z=5;return 

202 print "for step goto ,;Z=3;return 

203 print "goto data print Z=4;return 

204 print "line clear goto Z=4;return 

205 print "clear ",;TV=102;print “_",;Z=2;r 
eturn 

206 TV=103;print "gosub print gosub _",;Z=4 
;return 

207 TV=103;print "gosub input step x_",;Z= 

5;return 

208 print "for print step for goto _",;Z=6$ 
return 

209 print " xgosub data Z=3;return 

210 TV=102;print "gosub for Z=3;return 

211 print "clear goto return step print 
;Z=5;return 

212 print "return for clear goto print 
Z=5;return 

___ S5~ 


213 print "input print return ;Z=4;retur 


print "for goto _",;Z=3;return 
print "print gosub Z=2;return 
print " ->print Z=4; return 

print " rclear for rline Z=6;return 


214 

215 

216 

217 

218 print "return gosub clear goto print _" 
,;Z=5;return 

219 print "",;TV=102;print " »step line p 
rint Z=7;return 

220 print "input list gosub to _",;Z=4;retu 

221 print "input goto -^return _",;Z=4;retu 

222 print "point for gosub _",;Z=4;return 

223 print "input rfor gosub line line 
Z=6;return 

300 if (T>3)+(T<0)run 

301 if T=2L=2;K="@";F=2;gosub 400;return 

309 if T=3L=4;gosub 500;return 

310 if T=lclear ;print sprint " IS BASIC";p 

rint "_1._BALLY_BASIC";input "_2._BLUE_RAM_BA 
SIC_"T;gosub 410;;input 300;A=18002 
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330 for B=Ato ' A000s7.<B)*KP;if 7. (B-l > ~255#2 
55if 7. (B-l) #15BB5i f 7.(B-l)#3434next B 
340 :return ;goto 150 

400 clear sprint "_HOW.LONG_IS_PROGRAM.to 1 
ist ?" sprint ;input " (if UNKNOWN input zero 
>_"X 

401 if X=0E=!DFFC;print ;print " PRINTER WO 
N'T_ST0P_AT_1ist END";goto 410 

403 print ;E=!8000+X;S=0;print "_print THE_ 
ARRAYS?";print ;print "_Y_/_N_",;W=KP;if W="N 
"goto 410 

404 A=1;K="@";if L=4L=2;clear ;CY=0;print " 

_ <1> _«<).ARRAYS?"sprint (2).STAR.*().ARRAYS 
?",;input "_"A;if A=1K="@";F=2;goto 407 

405 if A=2K="*";F=-2;goto 407 

406 if A#lif A#2goto 404 

407 print sprint " input START &.END.ARRAY 
ADDRESSES"sprint ;CC=6;print ".START.", jTV=K;" 
input “()_"Ssprint sprint " END TV=K;input 

"()_"D;CC=7 

408 V=S;U=E;if K="*"L=4;U='8000+1800-(2 xS) 
;S=-S;D=-D 

410 print ;input ".IS.PRINTER.Cll.SERIAL OR 

_C2].PARALLEL_"P;if P>2goto 410 

420 CC=6;NT=1;print sprint ".LOAD.PROGRAM t 

o list "sprint sprint ".PRESS.A.KEYlwHEN.TAPE 
_IS.RUNNING";print ".for 300 BAUD.USE INTERFA 

CE.to input_WITH.PRINTER~0FF_rine”";A=KP; 

CC=7;NT=0;print sprint sreturn 
500 clear sprint " THIS BASIC WON'T print I 
N PRESENT FORM."sprint sprint “ PRESS.A KEY F 
OR INSTRUCTIONS";if KP 


520 clear sprint sprint " 1. RESET";print 

"_2..INSERT.ASTROBASIC"sprint "__3._L0AD SOU 

RCE.PROGRAM"sprint " 4. SAVE to~TAPE THli WA 

Y: 

530 CC=6;print "__:print 7.(-24576) ,904";pri 

nt ;CC=7;print "..THIS GIVES YOU PURE TEXT ON 

.TAPE.THAT_WILL.WORK.WITH.THIS.UTILITY 

540 print sprint "..next INSERT BLUE.RAM BA 

SIC.CARTRIDGE,_RELOAD.THIS.UTILITY.&.SELECT 

";CC=6;print "__3..2000.BAUD.ASTROBASIC ",;CC 

=7sprint "OPTION.FROM_THE.MENU 

550 NT=0;print sprint "_HAVE.YOU.ALREADY.D 

ONE.THIS?",;CC=6;print "_Y_/_N_",;A=KP;CC=77i 
f A="N"print ;NT=5sprint sprint " DO IT NOW! 
"; STOP 

560 if A="Y"L=4;goto 400 
570 goto 550 

2000 clear ;CX=-65;CY=0;print "ON.line ?_PRE 
SS_A_KEY"sif KPclear ;CY=0;CX=-14sprint "PRIN 
TING"sif P=l:print 300 

2010 NT=!1A00;TV=18;TV=27;TV=117;TV=1;TV=10; 
print "_LOWERCASE_=_1-BYTE.KEYPAD WORDS. UNDE 
RSCORES_=_SPACES., 

2020 if 7 t= 1)+(T=3)H=1B00 
2030 if T=2H=3100 
2040 if X=0print #1,H, 

2050 if Xprint X, 

2060 print ".CHARACTERS";return 

3000 TV=13;if l>0for Q=lto I-lsTV=32snext Q; 

return 

3010 return 
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